home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh3x
/
sh33b.d64
/
list 64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
26 lines
5 REM ** LIST 64 - GENERATOR **
10 INPUT"STARTADRESSE: (820) ";SA :REM STARTADRESSE
12 INPUT"FARBE WOERTER: (7) ";FW
14 INPUT"FARBE STRINGS: (5) ";FS
20 FOR X=0 TO 184:READ Q:POKE SA+X,Q:NEXT
22 POKE SA+102,FW:POKE SA+170,FS
25 IF SA<>820 THEN HB=INT((SA+15)/256):LB=(SA+15)-HB*256:POKESA+1,LB:POKESA+3,HB
30 PRINT"ABSPEICHERN (J) ?"
40 GET TA$:IF TA$="" THEN 40
50 IF TA$<>"J" THEN 95
60 OPEN 1,8,2,"LIST 64"+STR$(SA)+",P,W"
70 SH=INT(SA/256):SL=SA-SH*256
80 PRINT#1,CHR$(SL);:PRINT#1,CHR$(SH);
90 FOR X=0 TO 184:PRINT#1,CHR$(PEEK(SA+X));:NEXT:CLOSE1
95 PRINT"STARTADRESSE: "SA:SYS SA:END
100 DATA169,67,160,3,141,6,3,140,7,3,169,0,133,247,96,72,165,203,201,60,240
110 DATA250,201,57,208,14,230,247,169,1,37,247,133,247,165,203,201,57,240
120 DATA250,165,247,208,4,104,76,26,167,173,134,2,133,2,192,4,208,14,169
130 DATA32,166,211,224,6,240,6,232,32,71,171,208,246,104,16,60,201,255,240
140 DATA56,36,15,48,52,56,233,127,170,132,73,160,255,202,240,8,200,185,158
150 DATA160,16,250,48,245,169,7,141,134,2,200,185,158,160,48,5,32,71,171
160 DATA208,245,164,73,41,127,32,71,171,72,169,32,32,71,171,104,24,144,43
170 DATA201,34,240,6,166,15,224,1,208,25,201,58,208,15,72,32,215,170,169
180 DATA32,162,6,32,71,171,202,208,250,104,32,71,171,24,144,13,162,5,142
190 DATA134,2,32,71,171,166,2,142,134,2,76,246,166